home *** CD-ROM | disk | FTP | other *** search
- object FPrl: TFPrl
- Left = 222
- Top = 100
- Width = 331
- Height = 400
- Caption = 'FPrl'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- PixelsPerInch = 96
- Position = poScreenCenter
- TextHeight = 13
- object Label1: TLabel
- Left = 14
- Top = 126
- Width = 19
- Height = 13
- Caption = 'Col'
- end
- object Label2: TLabel
- Left = 78
- Top = 126
- Width = 26
- Height = 13
- Caption = 'Row'
- end
- object Label3: TLabel
- Left = 16
- Top = 4
- Width = 143
- Height = 13
- Caption = 'File Name (No extension)'
- end
- object Label4: TLabel
- Left = 12
- Top = 80
- Width = 33
- Height = 13
- Caption = 'Value'
- end
- object Bevel1: TBevel
- Left = 4
- Top = 60
- Width = 309
- Height = 5
- Shape = bsBottomLine
- Style = bsRaised
- end
- object Bevel2: TBevel
- Left = 8
- Top = 320
- Width = 309
- Height = 5
- Shape = bsBottomLine
- Style = bsRaised
- end
- object Edit1: TEdit
- Left = 14
- Top = 20
- Width = 193
- Height = 20
- TabOrder = 0
- Text = 'Edit1'
- end
- object Button1: TButton
- Left = 212
- Top = 2
- Width = 81
- Height = 27
- Caption = 'Open File'
- TabOrder = 1
- OnClick = Button1Click
- end
- object Edit2: TEdit
- Left = 12
- Top = 96
- Width = 121
- Height = 20
- TabOrder = 2
- Text = 'Edit2'
- end
- object RGTipo: TRadioGroup
- Left = 138
- Top = 76
- Width = 143
- Height = 125
- Caption = 'Type'
- ItemIndex = 0
- Items.Strings = (
- 'Integer'
- 'Real'
- 'String Left'
- 'String Right'
- 'String Center'
- 'Formula')
- TabOrder = 3
- end
- object Button2: TButton
- Left = 28
- Top = 176
- Width = 73
- Height = 25
- Caption = 'Add'
- TabOrder = 4
- OnClick = Button2Click
- end
- object Edit3: TEdit
- Left = 14
- Top = 142
- Width = 57
- Height = 20
- TabOrder = 5
- Text = 'Edit3'
- end
- object Edit4: TEdit
- Left = 78
- Top = 142
- Width = 51
- Height = 20
- TabOrder = 6
- Text = 'Edit4'
- end
- object Button3: TButton
- Left = 212
- Top = 32
- Width = 81
- Height = 29
- Caption = 'Close File'
- TabOrder = 7
- OnClick = Button3Click
- end
- object BitBtn1: TBitBtn
- Left = 232
- Top = 336
- Width = 89
- Height = 33
- TabOrder = 8
- OnClick = BitBtn1Click
- Kind = bkOK
- end
- object Memo1: TMemo
- Left = 4
- Top = 204
- Width = 309
- Height = 113
- Enabled = False
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- Lines.Strings = (
- 'Remember :'
- ' 1) Open the File'
- ' 2) Add what you want.. where you want'
- ' 3) Close then File'
- ''
- ' Col= 0,1,2 .-> A,B,C..'
- ' Row= 0,1,2 .-> 1,2,3..'
- '')
- ParentFont = False
- ReadOnly = True
- TabOrder = 9
- end
- end
-